home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasic_1.zip / BAS_LIST.EXE / TYPING9.BAS < prev   
BASIC Source File  |  1992-07-10  |  450b  |  26 lines
  1.  
  2. SUB titlescreen
  3. SCREEN 9
  4. COLOR 2, 4
  5. CLS
  6. DIM title#(325)                               'title(700) without variable
  7. LOCATE 5, 5
  8. PRINT "THIS IS CHARLES'S TYPING TEACHER!"
  9. GET (5, 5)-STEP(5, 10), title#
  10. PUT (5, 5), title#
  11.  FOR y = 0 TO 165 STEP 9       'step is temporary
  12.      PUT (y, 5), title#
  13.      PUT (y, 5), title#
  14.  NEXT y
  15. ERASE title#
  16. LOCATE 10, 10
  17. PRINT "PRESS ANY KEY TO BEGIN"
  18.  
  19. DO WHILE INKEY$ = "": LOOP
  20.  
  21.  
  22.  
  23.  
  24. END SUB
  25.  
  26.